#' @title 小提琴示例 #violin plot
#' @description 使用模拟数据小提琴图。
#' @Eexample


library(ggplot2)
library(dplyr)
library(viridis)

load("simulated_data.rdata")


p <- df %>%
  ggplot( aes(x=condition, y=rt, fill=condition, color=condition)) +
  geom_violin(width=0.5, linewidth=0.2) +
  scale_fill_viridis(discrete=TRUE) +
  scale_color_viridis(discrete=TRUE) +
  theme_bw() + 
  theme(
    legend.position="none"
  ) +
  coord_flip()

p
